Public Sub ExportADOXML(strTableName As String, strXMLFileName As String)

    'Export Access table as ADO-format XML file

    Dim rst1 As ADODB.Recordset

    

    On Error GoTo ErrorHandler

    

    'Instantiate recordset, open source table, save to XML file

    Set rst1 = New ADODB.Recordset

    rst1.Open strTableName, CurrentProject.Connection

    rst1.Save strXMLFileName, adPersistXML

    

    rst1.Close

    Set rst1 = Nothing

    

ExitRoutine:

    Exit Sub

    

ErrorHandler:

    MsgBox Err.Number & ": " & Err.Description, vbCritical, "ExportADOXML"

    Resume ExitRoutine

    

End Sub
